home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok52 / abitur / txt / globals.def < prev    next >
Text File  |  1993-11-04  |  1KB  |  42 lines
  1. DEFINITION MODULE Globals;
  2.  
  3. FROM FaecherNamen IMPORT FaecherTypen;
  4.  
  5. TYPE
  6.  
  7.    Noten  = ARRAY[Turnen..Informatik] OF REAL;
  8.  
  9.    SpielerPtr = POINTER TO Spieler;
  10.    Spieler = RECORD
  11.                 Next: SpielerPtr;
  12.                 Name: ARRAY[0..255] OF CHAR;
  13.                 Jahr: INTEGER;  (* Jahr = 5: Schüler hat absolviert *)
  14.                                 (* Jahr = 6: Schüler ist herausgefallen *)
  15.                 Zeugnis: RECORD
  16.                             VorNote,
  17.                             AktuelleSumme,
  18.                             Schnitt        : Noten;
  19.                             AnzInSumme: ARRAY[Turnen..Informatik] OF INTEGER;
  20.                             GesammtSchnitt: REAL
  21.                          END;
  22.                 SympathieNoteTurnen: REAL;
  23.                 ErfahrungsNoteGs: REAL;
  24.                 Absenzen: INTEGER;
  25.                 Provisorisch: INTEGER  (* Gerade: Nein
  26.                                         * Ungerade : Ja
  27.                                         * 0,1: noch nie repetiert
  28.                                         * 2,3: Repetiert
  29.                                         * 4,5: 2mal repetiert
  30.                                                -gefährdet
  31.                                         * 6... herausgefallen
  32.                                         *)
  33.              END; (* Spieler *)
  34.  
  35. VAR AlleSpieler: SpielerPtr;
  36.     AnzahlSpieler: INTEGER;
  37.  
  38.  
  39. PROCEDURE FindSpieler(nr: INTEGER): SpielerPtr;
  40.  
  41. END Globals.
  42.